home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / space lanes (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  87 lines
  1. 0 rem--ahoy--mar issue--space lanes--prog page 77
  2. 1 poke54287,43:poke54286,52:gosub500:goto700
  3. 2 pl=3:gosub100
  4. 5 pokel,.:pokel+cc,7
  5. 10 j=15-(peek(56321)and15)
  6. 15 d=r(j)
  7. 35 l1=peek(l+d):ifl1=63thend=0:goto10
  8. 37 ifl1=4thenpo=po+5:gosub90
  9. 38 ifint(rnd(0)*10)=9thengosub50
  10. 40 pokel,32:l=l+d:pokel,.:pokel+cc,7:d=0:goto10
  11. 50 r=3+2*int(rnd(0)*10)
  12. 52 r1=((r-1)*40)
  13. 55 forx=1025+r1to1058+r1:pokex,63:pokex+cc,1:nextx
  14. 60 ifl>1024+r1andl<1059+r1thenpl=pl-1:gosub600
  15. 65 forx=1025+r1to1058+r1:pokex,32:nextx:return
  16. 90 poke54296,6:poke54296,0:ifpo>hsthenhs=po
  17. 92 print"[158]";po:poke1034,63:poke1034+cc,7
  18. 93 printtab(29)"[145][145][158]";hs:poke1053,63:poke1053+cc,7
  19. 94 ifpo/900=int(po/900)thengosub400
  20. 96 return
  21. 100 cc=54272:l=1521:d=0:hs=(peek(901)*256)+peek(900)
  22. 102 dimr(10):forx=0to10:reada:r(x)=a:nextx
  23. 105 poke53265,peek(53265)and239
  24. 110 poke53272,(peek(53272)and240)or12
  25. 120 print"[145][158]????????????????????????????????????????"
  26. 130 print"[145][156]????????????????????????????????????????[157][157]"
  27. 140 print"?                                   ?[159]??[158]?[156]?"
  28. 150 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  29. 160 print"[145]?                                  ?[159]??[158]?[156]?"
  30. 170 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  31. 180 print"[145]?                                  ?[159]??[158]?[156]?"
  32. 190 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  33. 200 print"[145]?                                  ?[159]??[158]?[156]?"
  34. 210 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  35. 220 print"[145]?                                  ?[159]??[158]?[156]?"
  36. 230 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  37. 240 print"[145]?                                  ?[159]??[158]?[156]?"
  38. 250 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  39. 260 print"[145]?                                  ?[159]??[158]?[156]?"
  40. 270 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  41. 280 print"[145]?                                  ?[159]??[158]?[156]?"
  42. 290 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  43. 300 print"[145]?                                  ?[159]??[158]?[156]?"
  44. 310 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  45. 320 print"[145]?                                  ?[159]??[158]?[156]?"
  46. 330 print"[145]? ? ? ? ? ? ? ? ?  ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
  47. 335 print"[145]?                                  ?[159]??[158]?[156]?"
  48. 350 print"[145]??????????????????????????????????????[158]?[156]?[157][157][157]"
  49. 360 forx=0to39:poke1984+x,63:poke1984+cc+x,3:nextx
  50. 370 poke2022+cc,7:poke2023+cc,4
  51. 380 print"":printtab(38)"[158]s[157]p[157]a[157]c[157]e[157]l[157]a[157]n[157]e[157]s"
  52. 390 print"":print"[159]by,?robert?alonso"
  53. 395 print"[158]score:":print""tab(23)"[158]high:"
  54. 400 forx=1145to1161step2:forx1=0to720step80:pokex+x1,4:pokex+x1+cc,7:nextx1,x
  55. 410 forx=1162to1178step2:forx1=0to720step80:pokex+x1,4:pokex+x1+cc,7:nextx1,x
  56. 415 ifpo>0thenpo=po+5
  57. 420 poke53265,peek(53265)or16:return
  58. 500 print"[147]":poke53280,8:poke53281,6
  59. 520 print"[169] [157]   [157][169][223][157][223][157]   [157][157] [157][157][157][223][157] [157] [157]   [157][169]  "
  60. 530 print"[145][223][157][157] [157] [157]   [157] [157][157][157] [157][157][157][157] [157][157][157]   [157] [223] [157] [157][157][157][223]"
  61. 540 print"[223][223][157]   [157] [157] [157] [157][157][157]  [157][157][157] [157][157][157] [157] [157]  [146][223] [157]  [157][157][146][223][192]"
  62. 550 print"[145][157][223] [157] [157][157][157]   [157] [157][157][157] [157][157][157][157] [157][157][157]   [157] [157] [157] [157][157][157][157][146][223] "
  63. 560 print"[145]  [146][157] [157][157][157] [157] [157] [146][223] [146][157]   [157][157]  [157] [157] [157] [157] [157]   [157]    "
  64. 580 return
  65. 600 v=54296:forx=54272to54296:pokex,0:nextx
  66. 605 poke54273,30:poke54272,25:poke54277,15:poke54278,40
  67. 610 poke54276,129:forx=9to15step2:pokev,x:forx1=1to45:nextx1,x:pokev,0
  68. 620 poke54273,25:forx=15to10step1:pokev,x:forx1=1to50:nextx1,x:pokev,0:pokev,1
  69. 630 poke54273,30:forx=15to0step-1:pokev,x:forx1=1to40:nextx1,x
  70. 640 ifpl=0then660
  71. 650 return
  72. 660 h1=int(hs/256):h2=hs-h1*256
  73. 670 poke900,h2:poke901,h1
  74. 680 print"[147]":poke53272,21:end
  75. 700 ifpeek(12288)<>24thenpoke900,0:poke901,0
  76. 704 forx=0to10:reada:nextx
  77. 705 poke56334,peek(56334)and254:poke1,peek(1)and251
  78. 710 forx=12288to12799:pokex,peek(x+41984):nextx
  79. 720 poke1,peek(1)or4:poke56334,peek(56334)or1
  80. 730 forx=0to7:reada:poke12288+x,a:nextx
  81. 740 forx=0to7:reada:poke12320+x,a:nextx
  82. 750 forx=0to7:poke12544+x,0:poke12792+x,255:nextx
  83. 760 poke52,48:poke56,48:clr:goto2
  84. 800 data0,-40,40,0,-1,-41,39,0,1,-39,41
  85. 810 data24,60,126,24,189,231,195,129
  86. 820 data0,0,0,24,24,0,0,0
  87.